# datos
data = fread("../resultados/argentina/variables.csv")
variables = unique(data$variable)
glimpse(data)
## Rows: 2,159
## Columns: 6
## $ anio <int> 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, ~
## $ variable <chr> "Producción de petróleo crudo", "Producción de petróle~
## $ unidad <chr> "barriles", "barriles", "barriles", "barriles", "barri~
## $ codigo_variable <chr> "Q_crudo_regalias", "Q_crudo_regalias", "Q_crudo_regal~
## $ valor <dbl> 296505952, 277696773, 269251895, 271502835, 263813108,~
## $ fuente <chr> "Sec. Energía - Regalías", "Sec. Energía - Regalías", ~
Fuentes:
La producción de petróleo crudo de largo plazo proviene del Anuario de Combustibles, de la cual contamos datos desde 1911 hasta 1992. Sus valores para el período 1980-1992 coinciden con los de EIA, por lo cual pueden usarse como fuentes alternativas. Asimismo, la evolución de SESCO es similar a la de EIA, salvo por pequeñas divergencias entre 2008 y 2013. La serie de Regalías presenta un nivel menor que las anteriores debido a las deducciones de producción que realizan las empresas para pagar un menor nivel de Regalías hacia las provincias donde realizan la producción. Por último, la serie del Ministerio de Economía coincide con Regalías en sus primeros años, luego presenta un nivel intermedio entre Regalías y SESCO y a partir de 2009 toma a SESCO como fuente. Salvo el Anuario de Combustibles, el resto de las series presentan datos hasta los últimos años. Por lo tanto, el criterio de selección para la serie de producción con la que se realizarán los cálculos es el siguiente:
prod_crudo_plt <- ggplot(data[ variable == "Producción de petróleo crudo", ],
aes(anio, valor, color = fuente))+
geom_line()+
labs(title = "Gráfico 1. Producción de petróleo crudo. Argentina (1911 - 2020)",
y = "Millones de Barriles",
x = "Año",
caption = "Fuente: elaboración propia en base a Anuario de Combustibles, EIA, Ministerio de Economía, Secretaría de Energía (Base Regalías y SESCO)")+
theme(legend.position = "bottom", plot.caption = element_text(size = 7.5))+
# scale_shape_discrete(name = "Fuente")+
# scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
scale_y_continuous(labels = scales::unit_format(unit ="", scale = 1e-6))+
scale_x_continuous(breaks = seq(1910, 2030, by = 10))
ggplotly(prod_crudo_plt) %>%
layout(legend = list(
orientation = "h",
x = 0.1, y = -0.2) )
as.data.frame(dcast(data[ variable == "Producción de petróleo crudo", ] ,
anio ~ fuente, value.var = "valor")) %>%
kable(caption = "Tabla 1. Producción de petróleo crudo en Argentina según distintas fuentes (barriles)",
knitr.kable.NA = "", booktabs = TRUE) %>%
# kable_styling(bootstrap_options = c("striped"))
kable_styling(latex_options = "repeat_header", repeat_header_text = "Table 2 cont.")
| anio | Anuario de combustibles | EIA | MECON | Sec. Energía - Regalías | Sec. Energía - SESCO | Sec. Energía - SESCO (serie histórica) |
|---|---|---|---|---|---|---|
| 1911 | 12579.6 | NA | NA | NA | NA | NA |
| 1912 | 44028.6 | NA | NA | NA | NA | NA |
| 1913 | 132085.8 | NA | NA | NA | NA | NA |
| 1914 | 276751.2 | NA | NA | NA | NA | NA |
| 1915 | 515763.6 | NA | NA | NA | NA | NA |
| 1916 | 867992.4 | NA | NA | NA | NA | NA |
| 1917 | 1207641.6 | NA | NA | NA | NA | NA |
| 1918 | 1352307.0 | NA | NA | NA | NA | NA |
| 1919 | 1327147.8 | NA | NA | NA | NA | NA |
| 1920 | 1647927.6 | NA | NA | NA | NA | NA |
| 1921 | 2056764.6 | NA | NA | NA | NA | NA |
| 1922 | 2861859.0 | NA | NA | NA | NA | NA |
| 1923 | 3333594.0 | NA | NA | NA | NA | NA |
| 1924 | 4660741.8 | NA | NA | NA | NA | NA |
| 1925 | 5987889.6 | NA | NA | NA | NA | NA |
| 1926 | 7849670.4 | NA | NA | NA | NA | NA |
| 1927 | 8629605.6 | NA | NA | NA | NA | NA |
| 1928 | 9069891.6 | NA | NA | NA | NA | NA |
| 1929 | 9390671.4 | NA | NA | NA | NA | NA |
| 1930 | 9000703.8 | NA | NA | NA | NA | NA |
| 1931 | 11705317.8 | NA | NA | NA | NA | NA |
| 1932 | 13139392.2 | NA | NA | NA | NA | NA |
| 1933 | 13692894.6 | NA | NA | NA | NA | NA |
| 1934 | 14026254.0 | NA | NA | NA | NA | NA |
| 1935 | 14296715.4 | NA | NA | NA | NA | NA |
| 1936 | 15460328.4 | NA | NA | NA | NA | NA |
| 1937 | 16353480.0 | NA | NA | NA | NA | NA |
| 1938 | 17076807.0 | NA | NA | NA | NA | NA |
| 1939 | 18611518.2 | NA | NA | NA | NA | NA |
| 1940 | 20605384.8 | NA | NA | NA | NA | NA |
| 1941 | 22014300.0 | NA | NA | NA | NA | NA |
| 1942 | 23706256.2 | NA | NA | NA | NA | NA |
| 1943 | 24832130.4 | NA | NA | NA | NA | NA |
| 1944 | 24228309.6 | NA | NA | NA | NA | NA |
| 1945 | 22882292.4 | NA | NA | NA | NA | NA |
| 1946 | 20800368.6 | NA | NA | NA | NA | NA |
| 1947 | 21844475.4 | NA | NA | NA | NA | NA |
| 1948 | 23221941.6 | NA | NA | NA | NA | NA |
| 1949 | 22586671.8 | NA | NA | NA | NA | NA |
| 1950 | 23460954.0 | NA | NA | NA | NA | 23460954 |
| 1951 | 24467322.0 | NA | NA | NA | NA | 24464806 |
| 1952 | 24819550.8 | NA | NA | NA | NA | 24819551 |
| 1953 | 28499083.8 | NA | NA | NA | NA | 28501600 |
| 1954 | 29574639.6 | NA | NA | NA | NA | 29572124 |
| 1955 | 30505530.0 | NA | NA | NA | NA | 30504272 |
| 1956 | 31015003.8 | NA | NA | NA | NA | 31011859 |
| 1957 | 33952340.4 | NA | NA | NA | NA | 33951711 |
| 1958 | 35656876.2 | NA | NA | NA | NA | 35656247 |
| 1959 | 44575812.6 | NA | NA | NA | NA | 44578329 |
| 1960 | 63860339.4 | NA | NA | NA | NA | 63859811 |
| 1961 | 84459434.4 | NA | NA | NA | NA | 84461611 |
| 1962 | 98208937.2 | NA | NA | NA | NA | 98205912 |
| 1963 | 97139671.2 | NA | NA | NA | NA | 97140621 |
| 1964 | 100278281.4 | NA | NA | NA | NA | 100275728 |
| 1965 | 99536085.0 | NA | NA | NA | NA | 98276326 |
| 1966 | 104756619.0 | NA | NA | NA | NA | 104759676 |
| 1967 | 114675633.6 | NA | NA | NA | NA | 114673313 |
| 1968 | 125500379.4 | NA | NA | NA | NA | 125488171 |
| 1969 | 126846396.6 | NA | NA | NA | NA | 130081536 |
| 1970 | 143420019.6 | NA | NA | NA | NA | 143397622 |
| 1971 | 154458618.6 | NA | NA | NA | NA | 154510553 |
| 1972 | 158471511.0 | NA | NA | NA | NA | 158461781 |
| 1973 | 153722712.0 | NA | NA | NA | NA | 153728574 |
| 1974 | 151093575.6 | NA | NA | NA | NA | 151095236 |
| 1975 | 144464126.4 | NA | NA | NA | NA | 144465535 |
| 1976 | 145590000.6 | NA | NA | NA | NA | 145592913 |
| 1977 | 157540620.6 | NA | NA | NA | NA | 157542721 |
| 1978 | 165138699.0 | NA | NA | NA | NA | 165137944 |
| 1979 | 172554373.2 | NA | NA | NA | NA | 172553839 |
| 1980 | 179674426.8 | 179215000 | NA | NA | NA | 179675710 |
| 1981 | 181473309.6 | 181040000 | NA | NA | NA | 181475631 |
| 1982 | 179070606.0 | 179215000 | NA | NA | NA | 179071260 |
| 1983 | 179095765.2 | 179215000 | NA | NA | NA | 179096470 |
| 1984 | 175095452.4 | 174470000 | NA | NA | NA | 175096654 |
| 1985 | 167780415.0 | 167900000 | NA | NA | NA | 167780799 |
| 1986 | 158370874.2 | 158410000 | NA | NA | NA | 158370535 |
| 1987 | 156345558.6 | 156220000 | NA | NA | NA | 156346427 |
| 1988 | 164308445.4 | 163885000 | NA | NA | NA | 164306433 |
| 1989 | 168019427.4 | 167900000 | NA | NA | NA | 168021214 |
| 1990 | 176139559.2 | 176295000 | NA | NA | NA | 176139786 |
| 1991 | 180020365.8 | 177025000 | NA | NA | NA | 180017347 |
| 1992 | 202820890.8 | 201845000 | NA | NA | NA | 202821545 |
| 1993 | NA | 216810168 | NA | NA | 216709977 | 216666596 |
| 1994 | NA | 237290000 | NA | NA | 243705395 | 243619496 |
| 1995 | NA | 260820000 | NA | NA | 262532039 | 262532038 |
| 1996 | NA | 275934016 | NA | NA | 286623718 | 286623720 |
| 1997 | NA | 304290000 | NA | NA | 304444927 | 304444925 |
| 1998 | NA | 309040000 | NA | 296505952 | 309128920 | 309128920 |
| 1999 | NA | 292815000 | 281195635 | 277696773 | 286730758 | 280944390 |
| 2000 | NA | 277816858 | 265524542 | 269251895 | 271988857 | 272277680 |
| 2001 | NA | 292876000 | 274056011 | 271502835 | 280350178 | 280631963 |
| 2002 | NA | 291688655 | 269745373 | 263813108 | 276359551 | 276503269 |
| 2003 | NA | 285834055 | 261961788 | 253178470 | 270390707 | 270191278 |
| 2004 | NA | 267421265 | 246462266 | 238558431 | 254764944 | 254315156 |
| 2005 | NA | 256832160 | 235333294 | 223865031 | 242735040 | 242613090 |
| 2006 | NA | 254204945 | 234258116 | 222152437 | 240581577 | 241190772 |
| 2007 | NA | 247753341 | 231623045 | 214937899 | 234634844 | 238412146 |
| 2008 | NA | 241343562 | 229046373 | 208059287 | 229813565 | 236452112 |
| 2009 | NA | 237681193 | 220344494 | 204941826 | 213397024 | 227941981 |
| 2010 | NA | 228510472 | 215106366 | 197987225 | 208580089 | 222743304 |
| 2011 | NA | 212222926 | 202002442 | 184055431 | 195537811 | 209615630 |
| 2012 | NA | 201158723 | 201076104 | 183502681 | 194697352 | 208440947 |
| 2013 | NA | 197044731 | 197077900 | 173900143 | 191127641 | 204173770 |
| 2014 | NA | 194238283 | 194226984 | 174504828 | 187966208 | 201146496 |
| 2015 | NA | 194267150 | 194339835 | 175540962 | 186094035 | 201105367 |
| 2016 | NA | 186354440 | 186858772 | 166419126 | 178180149 | NA |
| 2017 | NA | 174997000 | 175065755 | 157994322 | 166357511 | NA |
| 2018 | NA | 178587000 | 178663117 | 158983018 | 169528965 | NA |
| 2019 | NA | 185143000 | 169624009 | 175647454 | 175152024 | NA |
| 2020 | NA | NA | NA | 168517790 | 164579561 | NA |
# library(htmlTable)
# htmlTable(dcast(data[ variable == "Producción de petróleo crudo", ] ,
# anio ~ fuente, value.var = "valor"),
# # cgroup = c("Set 1:25", "Set 26:50"),
# # n.cgroup = c(2, 2),
# # rnames = FALSE
# )
Al igual que en la producción de petróleo crudo, la serie de largo plazo de producción de gas proviene del Anuario de Combustibles, de la cual contamos datos desde 1913 hasta 1992. A diferencia del crudo, sus valores para el período 1980-1992 no coinciden con los de EIA, pero está última sí coincide con los de Regalías entre 1999 y 2015. En cambio, la serie de SESCO, tiende a continuar la evolución de EIA y Regalías, pero con el nivel del Anuario de Combustibles, por lo que ambos pares de series pueden empalmar coherentemente según su nivel. Nuevamente, los valores de la base de Regalías son menores debido a las deducciones de producción para tributar menos regalías. La serie del Ministerio de Economía toma los valores de SESCO.Por lo tanto, el criterio de selección para la serie de producción de gas para los cálculos es el siguiente:
prod_gas_plt <- ggplot(data[ variable == "Producción de gas natural", ],
aes(anio, valor, color = fuente))+
geom_line()+
labs(title = "Gráfico 2. Producción de gas. Argentina (1913 - 2020)",
y = "MMBTU", x = "Año",
caption = "Fuente: elaboración propia en base a Anuario de Combustibles, EIA, Ministerio de Economía, Secretaría de Energía (Base Regalías y SESCO)")+
scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
scale_x_continuous(breaks = seq(1910, 2030, by = 10))+
theme(legend.position = "bottom", plot.caption = element_text(size = 7.5) )
ggplotly(prod_gas_plt) %>%
layout(legend = list(
orientation = "h",
x = 0.1, y = -0.2) )
## Warning in prettyNum(.Internal(format(x, trim, digits, nsmall, width, 3L, :
## 'big.mark' and 'decimal.mark' are both '.', which could be confusing
as.data.frame(dcast(data[ variable == "Producción de gas natural", ] ,
anio ~ fuente, value.var = "valor")) %>%
kable(caption = "abla 2. Producción de gas natural en Argentina según distintas fuentes (MMBTU)",
knitr.kable.NA = "", booktabs = TRUE) %>%
# kable_styling(bootstrap_options = c("striped"))
kable_styling(latex_options = "repeat_header", repeat_header_text = "Table 2 cont.")
| anio | Anuario de combustibles | EIA | MECON | Sec. Energía - SESCO | Sec. Energía - SESCO (serie histórica) |
|---|---|---|---|---|---|
| 1913 | 35300 | NA | NA | NA | NA |
| 1914 | 105900 | NA | NA | NA | NA |
| 1915 | 247100 | NA | NA | NA | NA |
| 1916 | 317700 | NA | NA | NA | NA |
| 1917 | 529500 | NA | NA | NA | NA |
| 1918 | 635400 | NA | NA | NA | NA |
| 1919 | 635400 | NA | NA | NA | NA |
| 1920 | 776600 | NA | NA | NA | NA |
| 1921 | 988400 | NA | NA | NA | NA |
| 1922 | 1306100 | NA | NA | NA | NA |
| 1923 | 1588500 | NA | NA | NA | NA |
| 1924 | 2647500 | NA | NA | NA | NA |
| 1925 | 3388800 | NA | NA | NA | NA |
| 1926 | 6036300 | NA | NA | NA | NA |
| 1927 | 5365600 | NA | NA | NA | NA |
| 1928 | 6106900 | NA | NA | NA | NA |
| 1929 | 9495700 | NA | NA | NA | NA |
| 1930 | 9531000 | NA | NA | NA | NA |
| 1931 | 12143200 | NA | NA | NA | NA |
| 1932 | 16732200 | NA | NA | NA | NA |
| 1933 | 23192100 | NA | NA | NA | NA |
| 1934 | 25804300 | NA | NA | NA | NA |
| 1935 | 21780100 | NA | NA | NA | NA |
| 1936 | 18814900 | NA | NA | NA | NA |
| 1937 | 17826500 | NA | NA | NA | NA |
| 1938 | 17332300 | NA | NA | NA | NA |
| 1939 | 18285400 | NA | NA | NA | NA |
| 1940 | 18920800 | NA | NA | NA | NA |
| 1941 | 20932900 | NA | NA | NA | NA |
| 1942 | 23827500 | NA | NA | NA | NA |
| 1943 | 23862800 | NA | NA | NA | NA |
| 1944 | 23368600 | NA | NA | NA | NA |
| 1945 | 21462400 | NA | NA | NA | NA |
| 1946 | 19838600 | NA | NA | NA | NA |
| 1947 | 20544600 | NA | NA | NA | NA |
| 1948 | 21356500 | NA | NA | NA | NA |
| 1949 | 23756900 | NA | NA | NA | NA |
| 1950 | 26616200 | NA | NA | NA | 26637557 |
| 1951 | 29263700 | NA | NA | NA | 29300553 |
| 1952 | 31664100 | NA | NA | NA | 31704024 |
| 1953 | 32864300 | NA | NA | NA | 32902883 |
| 1954 | 34629300 | NA | NA | NA | 34784338 |
| 1955 | 37347400 | NA | NA | NA | 37580733 |
| 1956 | 40489100 | NA | NA | NA | 40524894 |
| 1957 | 49914200 | NA | NA | NA | 49929273 |
| 1958 | 58350900 | NA | NA | NA | 58382564 |
| 1959 | 75965600 | NA | NA | NA | 75981379 |
| 1960 | 126162200 | NA | NA | NA | 126187228 |
| 1961 | 173252400 | NA | NA | NA | 173272733 |
| 1962 | 217906900 | NA | NA | NA | 217907465 |
| 1963 | 209893800 | NA | NA | NA | 209914274 |
| 1964 | 230685500 | NA | NA | NA | 232476904 |
| 1965 | 220130800 | NA | NA | NA | 220145944 |
| 1966 | 210458600 | NA | NA | NA | 210489946 |
| 1967 | 228320400 | NA | NA | NA | 228324954 |
| 1968 | 249006200 | NA | NA | NA | 249383769 |
| 1969 | 247347100 | NA | NA | NA | 247362632 |
| 1970 | 270539200 | NA | NA | NA | 270571605 |
| 1971 | 286530100 | NA | NA | NA | 286532218 |
| 1972 | 293554800 | NA | NA | NA | 293583781 |
| 1973 | 314664200 | NA | NA | NA | 314677649 |
| 1974 | 332773100 | NA | NA | NA | 332801870 |
| 1975 | 362707500 | NA | NA | NA | 362711242 |
| 1976 | 389429600 | NA | NA | NA | 389421552 |
| 1977 | 411703900 | NA | NA | NA | 411694934 |
| 1978 | 406091200 | NA | NA | NA | 406097519 |
| 1979 | 452369500 | NA | NA | NA | 452381608 |
| 1980 | 475349800 | 279883745 | NA | NA | 475337374 |
| 1981 | 481103700 | 345856343 | NA | NA | 481104265 |
| 1982 | 547961900 | 398834337 | NA | NA | 547974079 |
| 1983 | 606489300 | 444815238 | NA | NA | 606476274 |
| 1984 | 662369200 | 493794894 | NA | NA | 662367859 |
| 1985 | 674688900 | 499792403 | NA | NA | 674693736 |
| 1986 | 679383800 | 546772888 | NA | NA | 679373563 |
| 1987 | 676630400 | 526781192 | NA | NA | 676738065 |
| 1988 | 802510200 | 631737597 | NA | NA | 802513624 |
| 1989 | 854507100 | 719701060 | NA | NA | 854503182 |
| 1990 | 812535400 | 629758419 | NA | NA | 812532470 |
| 1991 | 869897900 | 703537773 | NA | NA | 869894935 |
| 1992 | 884017900 | 709185427 | NA | NA | 884004839 |
| 1993 | NA | 759667459 | NA | 902534750 | 941191792 |
| 1994 | NA | 786133466 | NA | 938141651 | 977718114 |
| 1995 | NA | 882863287 | NA | 1030423781 | 1074573619 |
| 1996 | NA | 937929964 | NA | 1178069808 | 1223135434 |
| 1997 | NA | 966523238 | NA | 1308711607 | 1308711565 |
| 1998 | NA | 1044536983 | NA | 1363647081 | 1363647119 |
| 1999 | NA | 1220332664 | 1438440376 | 1437911083 | 1497619409 |
| 2000 | NA | 1320585622 | 1595968230 | 1595364784 | 1595968245 |
| 2001 | NA | 1311054531 | 1695761429 | 1698918102 | 1695761415 |
| 2002 | NA | 1274695183 | 1639935628 | 1642089377 | 1639935630 |
| 2003 | NA | 1448725846 | 1798455265 | 1800558632 | 1798455257 |
| 2004 | NA | 1584279142 | 1841141694 | 1842819823 | 1841141676 |
| 2005 | NA | 1610754395 | 1810134560 | 1811916924 | 1810134545 |
| 2006 | NA | 1627345554 | 1823095828 | 1823770983 | 1823095822 |
| 2007 | NA | 1582514125 | 1799281670 | 1800028283 | 1799281666 |
| 2008 | NA | 1555332865 | 1782235412 | 1775924408 | 1782235402 |
| 2009 | NA | 1460092555 | 1709199505 | 1709199505 | 1709199490 |
| 2010 | NA | 1415543529 | 1662897706 | 1662897706 | 1662897715 |
| 2011 | NA | 1368594081 | 1607122643 | 1607122643 | 1607122656 |
| 2012 | NA | 1328704699 | 1557566403 | 1557566403 | 1557566398 |
| 2013 | NA | 1255279998 | 1472302594 | 1472302712 | 1472302602 |
| 2014 | NA | 1253161977 | 1464386089 | 1464386089 | 1464386083 |
| 2015 | NA | 1284932281 | 1514565301 | 1514565301 | 1516943582 |
| 2016 | NA | 1386102188 | 1588070375 | 1588070375 | NA |
| 2017 | NA | 1444276650 | 1576380047 | 1576380047 | NA |
| 2018 | NA | NA | 1659848578 | 1659848578 | NA |
| 2019 | NA | NA | 1603235926 | 1742063372 | NA |
| 2020 | NA | NA | NA | 1591882214 | NA |
Fuentes:
precio_crudo_plt <- ggplot(data[ variable == variables[5], ],
aes(anio, valor, color = fuente))+
geom_line(alpha = 0.8)+
labs(title = "Gráfico 3. Precios del mercado interno del petróleo crudo. Argentina (1963 - 2020)",
y = "USD/barril", x = "Año",
caption = "Fuente: elaboración propia en base a IDEE, Ministerio de Economía, Secretaría de Energía (Base Regalías) y Balances Contables de YPF")+
# scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
scale_x_continuous(breaks = seq(1910, 2030, by = 10))+
theme(legend.position = "bottom", plot.caption = element_text(size = 7.5) )
ggplotly(precio_crudo_plt) %>%
layout(legend = list(
orientation = "h",
x = 0.1, y = -0.2) )
Tabla 3. Precio del mercado interno del petróleo crudo en Argentina según distintas fuentes (barriles)
precio_gas_plt <- ggplot(data[ variable == variables[6], ],
aes(anio, valor, color = fuente))+
geom_line(alpha = 0.8)+
labs(title = "Gráfico 4. Precios del mercado interno del gas natural. Argentina (1963 - 2020)",
y = "USD/MMBTU", x = "Año",
caption = "Fuente: elaboración propia en base a IDEE, Ministerio de Economía, Secretaría de Energía (Base Regalías) y Balances Contables de YPF")+
# scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
scale_x_continuous(breaks = seq(1910, 2030, by = 10))+
theme(legend.position = "bottom", plot.caption = element_text(size = 7.5) )
ggplotly(precio_gas_plt) %>%
layout(legend = list(
orientation = "h",
x = 0.1, y = -0.2) )
Tabla 4. Precio del mercado interno del gas natural en Argentina según distintas fuentes (MMBTU)
Precios de exportación desde Argentina, benchmarks y Precios del mercado de EEUU (solo gas, internos y de expo/impo)
precio_ref_crudo_plt <- ggplot(data[ variable == variables[7], ],
aes(anio, valor, color = fuente))+
geom_line(alpha = 0.8)+
labs(title = "Gráfico 4. Precios de referencia del mercado mundial del crudo (1946 - 2020)",
y = "USD/MMBTU", x = "Año",
caption = "Fuente: elaboración propia en base a EIA e Inflation Data")+
# scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
scale_x_continuous(breaks = seq(1910, 2030, by = 10))+
theme(legend.position = "bottom", plot.caption = element_text(size = 7.5) )
ggplotly(precio_ref_crudo_plt) %>%
layout(legend = list(
orientation = "h",
x = 0.1, y = -0.2) )
precio_expo_crudo_plt <- ggplot(data[ variable == variables[8], ],
aes(anio, valor, color = fuente))+
geom_line(alpha = 0.8)+
labs(title = "Gráfico #. Precios de exportacion de crudo. Argentina (1964 - 2020)",
y = "USD/barril", x = "Año",
caption = "Fuente: elaboración propia en base a Sec. Energía, MECON, UN-Comtrade...")+
# scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
scale_x_continuous(breaks = seq(1910, 2030, by = 10))+
theme(legend.position = "bottom", plot.caption = element_text(size = 7.5) )
ggplotly(precio_expo_crudo_plt) %>%
layout(legend = list(
orientation = "h",
x = 0.1, y = -0.2) )
# visualizacion diferencial de precio mdo interno
# ggsave("../resultados/argentina/precio_interno_vs_externo.jpg")
brecha_precio_crudo_plt <- ggplot(data[ variable %in% variables[c(5,7)], ],
aes(anio, valor, color = fuente))+
geom_line(alpha = 0.8)+
labs(title = "Gráfico #. Precio de venta al mercado interno, exportacion y referencias del petróleo crudo (1960 - 2020)",
y = "USD/barril", x = "Año",
caption = "Fuente: elaboración propia en base a EIA, Sec. de Energía y MECON")+
# scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
scale_x_continuous(breaks = seq(1910, 2030, by = 10))+
theme(legend.position = "bottom", plot.caption = element_text(size = 7.5) )
ggplotly(brecha_precio_crudo_plt) %>%
layout(legend = list(
orientation = "h",
x = 0.1, y = -0.2) )
precio_ref_gas_plt <- ggplot(data[ (variable %in% variables[9:25])&
(!str_detect(variable, "GNL|LNG|OCDE|importación|exportación") ), ],
aes(anio, valor, color = variable))+
geom_line(alpha = 0.8)+
labs(title = "Gráfico #. Precios de referencia del gas natural de EEUU y Europa (1960 - 2020)",
y = "USD/MMBTU", x = "Año",
caption = "Fuente: elaboración propia en base a EIA y BP")+
# scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
scale_x_continuous(breaks = seq(1910, 2030, by = 10))+
theme(legend.position = "bottom", plot.caption = element_text(size = 7.5) )
ggplotly(precio_ref_gas_plt) %>%
layout(legend = list(
orientation = "h",
x = 0.1, y = -0.2) )
precio_ref_gas_plt_2 <- ggplot(data[ (variable %in% variables[9:25])&
(!str_detect(variable, "GNL|LNG|OCDE") )&
(str_detect(variable, "importación|exportación") ), ],
aes(anio, valor, color = variable))+
geom_line(alpha = 0.8)+
labs(title = "Gráfico #. Precios de exportación e importación del gas natural de EEUU y Europa (1984 - 2020)",
y = "USD/MMBTU", x = "Año",
caption = "Fuente: elaboración propia en base a EIA y BP")+
# scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
scale_x_continuous(breaks = seq(1910, 2030, by = 10))+
theme(legend.position = "bottom", plot.caption = element_text(size = 7.5) )
ggplotly(precio_ref_gas_plt_2) %>%
layout(legend = list(
orientation = "h",
x = 0.1, y = -0.2) )
precio_expo_gas_plt <- ggplot(data[ (variable %in% variables[31]) , ],
aes(anio, valor, color = fuente))+
geom_line(alpha = 0.8)+
labs(title = "Gráfico #. Precios de exportación del gas natural. Argentina (1962 - 2020)",
y = "USD/MMBTU", x = "Año",
caption = "Fuente: elaboración propia en base a Sec. de Energía, MECON, IDEE y UN-Comtrade")+
# scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
scale_x_continuous(breaks = seq(1910, 2030, by = 10))+
theme(legend.position = "bottom", plot.caption = element_text(size = 7.5) )
ggplotly(precio_expo_gas_plt) %>%
layout(legend = list(
orientation = "h",
x = 0.1, y = -0.2) )
precio_impo_gas_plt <- ggplot(data[ (variable %in% variables[26:30]) , ],
aes(anio, valor, color = variable))+#, group =codigo_variable))+
geom_line(alpha = 0.8 , aes(linetype = fuente))+
labs(title = "Gráfico #. Precios de importación del gas natural. Argentina (1962 - 2020)",
y = "USD/MMBTU", x = "Año",
caption = "Fuente: elaboración propia en base a Sec. de Energía, MECON, IDEE y UN-Comtrade")+
# scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
scale_x_continuous(breaks = seq(1910, 2030, by = 10))+
theme(legend.position = "bottom", plot.caption = element_text(size = 7.5) )
ggplotly(precio_impo_gas_plt) %>%
layout(legend = list(
orientation = "h",
x = 0.1, y = -0.2) )